﻿Public Class BewegungsboniTabelleAlles_2
    Inherits BewegungsboniTabelle

    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 2
    End Function
    Public Overrides Function ToString() As String
        Return "alles|2"
    End Function
End Class
Public Class BewegungsboniTabelleAlles_3
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Return 3
    End Function
    Public Overrides Function ToString() As String
        Return "alles|3"
    End Function
End Class
Public Class BewegungsboniTabelleLuft_2
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 2
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 2
            Case MovementSorts.Transport.ToString.ToUpper
                Return 0
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 0
            Case MovementSorts.Fuss.ToString.ToUpper
                Return 0
            Case MovementSorts.Mech.ToString.ToUpper
                Return 0
            Case MovementSorts.Hoellium.ToString.ToUpper
                Return 0
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 0
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 0
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 0
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 0
            Case Else
                Return 0
        End Select
    End Function
    Public Overrides Function ToString() As String
        Return "Luft|2"
    End Function
End Class
Public Class BewegungsboniTabelleLuft_1
    Inherits BewegungsboniTabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 1
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 1
            Case MovementSorts.Transport.ToString.ToUpper
                Return 0
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 0
            Case MovementSorts.Fuss.ToString.ToUpper
                Return 0
            Case MovementSorts.Mech.ToString.ToUpper
                Return 0
            Case MovementSorts.Hoellium.ToString.ToUpper
                Return 0
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 0
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 0
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 0
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 0
            Case Else
                Return 0
        End Select
    End Function
    Public Overrides Function ToString() As String
        Return "Luft|1"
    End Function
End Class
Public Class BewegungsboniTabelleCustomLuft
    Inherits BewegungsboniTabelle
    Dim Luft As Integer
    Public Sub New(ByVal Luft As Integer)
        Me.Luft = Luft
    End Sub

    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return Luft
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return Luft
            Case MovementSorts.Transport.ToString.ToUpper
                Return 0
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 0
            Case MovementSorts.Fuss.ToString.ToUpper
                Return 0
            Case MovementSorts.Mech.ToString.ToUpper
                Return 0
            Case MovementSorts.Hoellium.ToString.ToUpper
                Return 0
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 0
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 0
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 0
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 0
            Case Else
                Return 0
        End Select
    End Function
    Public Overrides Function ToString() As String
        Return "Luft|" + Luft.ToString
    End Function
End Class